How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/submenu/00309.ls

Text File | 1995-03-29 | 5.4 KB | 234 lines

on setlevelbar
  global mylevel, castoffset, mysound
  set mv to the locV of sprite 48
  if mv < 268 then
    set mylevel to 3
    set mysound to "harder"
  else
    if mv < 335 then
      set mylevel to 2
      set mysound to "hard"
    else
      set mylevel to 1
      set mysound to "easy"
    end if
  end if
  repeat with xxx = 1 to 3
    if xxx = mylevel then
      set the castNum of sprite (19 + xxx) to castoffset + xxx + 3
      next repeat
    end if
    set the castNum of sprite (19 + xxx) to castoffset + xxx
  end repeat
  set the castNum of sprite 4 to the number of cast ("mouth" & mylevel)
  updateStage()
end

on locatelevelbar thislevel
  global mylevel
  set mylevel to thislevel
  if thislevel = 1 then
    set the locV of sprite 48 to 375
  else
    if thislevel = 2 then
      set the locV of sprite 48 to 304
    else
      set the locV of sprite 48 to 232
    end if
  end if
  updateStage()
  setlevelbar()
end

on grablevel inport
  global selectedgame, mylevel, game1level, gametwolevel, game3level, gamefourlevel, game8level, game5level, game6level, game7level
  if integerp(inport) then
    set selectedgame to inport
  end if
  if selectedgame = 1 then
    set mylevel to game1level
  end if
  if selectedgame = 2 then
    set mylevel to gametwolevel
  end if
  if selectedgame = 3 then
    set mylevel to game3level
  end if
  if selectedgame = 4 then
    set mylevel to gamefourlevel
  end if
  if selectedgame = 5 then
    set mylevel to game5level
  end if
  if selectedgame = 6 then
    set mylevel to game6level
  end if
  if selectedgame = 7 then
    set mylevel to game7level
  end if
  if selectedgame = 8 then
    set mylevel to game8level
  end if
  locatelevelbar(mylevel)
  go("game" & selectedgame)
end

on gimmelevel dumber
  global mylevel, game1level, gametwolevel, game3level, gamefourlevel, game8level, game5level, game6level, game7level
  if dumber = 1 then
    set mylevel to game1level
  end if
  if dumber = 2 then
    set mylevel to gametwolevel
  end if
  if dumber = 3 then
    set mylevel to game3level
  end if
  if dumber = 4 then
    set mylevel to gamefourlevel
  end if
  if dumber = 5 then
    set mylevel to game5level
  end if
  if dumber = 6 then
    set mylevel to game6level
  end if
  if dumber = 7 then
    set mylevel to game7level
  end if
  if dumber = 8 then
    set mylevel to game8level
  end if
  put mylevel
  return mylevel
end

on newcomer
  global game1level, gametwolevel, game3level, gamefourlevel, game8level, game5level, game6level, game7level
  set game1level to 1
  set gametwolevel to 1
  set game3level to 1
  set gamefourlevel to 1
  set game5level to 1
  set game6level to 1
  set game7level to 1
  set game8level to 1
end

on outputlevel
  global game1level, gametwolevel, game3level, gamefourlevel, game8level, game5level, game6level, game7level
  put game1level
  put gametwolevel
  put game3level
  put gamefourlevel
  put game5level
  put game6level
  put game7level
  put game8level
end

on setalllevels
  global selectedgame, mylevel, game1level, gametwolevel, game3level, gamefourlevel, game8level, game5level, game6level, game7level
  puppetSound("ding1")
  set game1level to mylevel
  set gametwolevel to mylevel
  set game3level to mylevel
  set gamefourlevel to mylevel
  set game5level to mylevel
  set game6level to mylevel
  set game7level to mylevel
  set game8level to mylevel
end

on getselectedlevel selectedgame
  global selectedgame, mylevel, game1level, gametwolevel, game3level, gamefourlevel, game8level, game5level, game6level, game7level
  puppetSound("ding1")
  if selectedgame = 1 then
    set game1level to mylevel
  end if
  if selectedgame = 2 then
    set gametwolevel to mylevel
  end if
  if selectedgame = 3 then
    set game3level to mylevel
  end if
  if selectedgame = 4 then
    set gamefourlevel to mylevel
  end if
  if selectedgame = 5 then
    set game5level to mylevel
  end if
  if selectedgame = 6 then
    set game6level to mylevel
  end if
  if selectedgame = 7 then
    set game7level to mylevel
  end if
  if selectedgame = 8 then
    set game8level to mylevel
  end if
  put "getselectedlevel = ", selectedgame, mylevel
  outputlevel()
  locatelevelbar(mylevel)
end

on startwink
  global animcast, animstep, animinc, animchan, animon, animend
  if animon = 1 then
    exit
  end if
  set animon to 1
  set animchan to random(2) + 1
  if animchan > 2 then
    set animchan to 17
    set animcast to the number of cast "eye"
    set animstep to 0
    set animinc to 1
    set animend to 3
    if not (the soundBusy of 1) then
      puppetSound("bug blink")
    end if
  else
    set animchan to 48
    set animcast to the number of cast "wink"
    set animstep to 0
    set animinc to 1
    set animend to 4
    if not (the soundBusy of 1) then
      puppetSound("bug blink")
    end if
  end if
  puppetSprite(animchan, 1)
end

on dowink
  global animcast, animstep, animinc, animchan, animon, animend, beyex, beyey
  set mh to the mouseH
  set mv to the mouseV
  if mh < 0 then
    set mh to 0
  end if
  if mh > 640 then
    set mh to 640
  end if
  if mv < 0 then
    set mv to 0
  end if
  if mv > 480 then
    set mv to 480
  end if
  set the locH of sprite 3 to beyex + ((mh - beyex) / 32)
  set the locV of sprite 3 to beyey + ((mv - beyey) / 32)
  set animstep to animstep + animinc
  if animstep >= animend then
    set animinc to -animinc
    set animstep to animend
  end if
  if animstep < 0 then
    set animon to 0
    exit
  end if
  set the castNum of sprite animchan to animcast + animstep
  updateStage()
end